home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / cafead1a / bar.bas next >
Encoding:
BASIC Source File  |  1999-08-28  |  506 b   |  15 lines
  1. Attribute VB_Name = "Bar"
  2. Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  3. Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
  4. Public Const SW_HIDE = 0
  5. Public Const SW_SHOW = 5
  6. Public Sub TaskBar(Show As Boolean)
  7. Dim bHwnd As Long
  8. bHwnd = FindWindow("Shell_TrayWnd", "")
  9. If Show Then
  10. ShowWindow bHwnd, SW_SHOW
  11. Else
  12. ShowWindow bHwnd, SW_HIDE
  13. End If
  14. End Sub
  15.